unit ObjTest;

interface

uses NullableTypes, JsonVO;

type
  TObjTest = class
  private
    FNullableIntegerField: Nullable<Integer>;
    FNullableStringField: Nullable<string>;
    FNullableDateField: Nullable<TDate>;
    FNullableDoubleField: Nullable<Double>;
    FNullableBooleanField: Nullable<Boolean>;
    FIntegerField: Integer;
    FStringField: string;
    FDateField: TDate;
    FDoubleField: Double;
    FBooleanField: Boolean;
    FCharField: Char;
  public
    property NullableIntegerField: Nullable<Integer> read FNullableIntegerField write FNullableIntegerField;
    property NullableStringField: Nullable<string> read FNullableStringField write FNullableStringField;
    property NullableDateField: Nullable<TDate> read FNullableDateField write FNullableDateField;
    property NullableDoubleField: Nullable<Double> read FNullableDoubleField write FNullableDoubleField;
    property NullableBooleanField: Nullable<Boolean> read FNullableBooleanField write FNullableBooleanField;
    property IntegerField: Integer read FIntegerField write FIntegerField;
    property StringField: string read FStringField write FStringField;
    property DateField: TDate read FDateField write FDateField;
    property DoubleField: Double read FDoubleField write FDoubleField;
    property BooleanField: Boolean read FBooleanField write FBooleanField;
    property CharField: Char read FCharField write FCharField;
  end;


implementation

{ TObjTest }

end.
